%% 
%% This is file `subeqnarray.sty', generated on <1993/11/2> 
%% with the docstrip utility (2.1e).
%% 
%% The original source file was `subeqnarray.doc'.
%% 
%% 
%% IMPORTANT NOTICE:
%% You are not allowed to distribute this file.
%% For distribution of the original source see
%% the copyright notice in the file subeqnarray.doc.
%% 
%%% ====================================================================
%%%  @LaTeX-style-file{
%%%     author          = "Braams J.L.",
%%%     version         = "2.0",
%%%     date            = "02 November 1993",
%%%     time            = "15:06:16 MET",
%%%     filename        = "subeqnarray.doc",
%%%     address         = "PTT Research
%%%                        St. Paulusstraat 4
%%%                        2264 XZ Leidschendam
%%%                        The Netherlands",
%%%     telephone       = "(70) 3325051",
%%%     FAX             = "(70) 3326477",
%%%     checksum        = "23077 186 688 7602",
%%%     email           = "J.L.Braams@research.ptt.nl (Internet)",
%%%     codetable       = "ISO/ASCII",
%%%     keywords        = "",
%%%     supported       = "yes",
%%%     abstract        = "This style option defines the subeqnarray
%%%                        and subeqnarray* environments, which behave
%%%                        like the eqnarray environment, except that
%%%                        the lines are numbered like 1a 1b 1c etc.
%%%                        To refer to these numbers an extra label
%%%                        command \slabel has been defined
%%%
%%%                        The equations and their numbers adhere to
%%%                        the standard LaTeX options leqno and fleqn.",
%%%     docstring       = "The checksum field above contains a CRC-16
%%%                        checksum as the first value, followed by the
%%%                        equivalent of the standard UNIX wc (word
%%%                        count) utility output of lines, words, and
%%%                        characters.  This is produced by Robert
%%%                        Solovay's checksum utility.",
%%%  }
%%% ====================================================================
\def\fileversion{2.0}
\def\filedate{02 November 1993}
\def\docdate{22/12/1988}
\wlog{Style option `subeqnarray' version \fileversion\space<\filedate> (JLB)}
\wlog{English documentation\space\space\space<\docdate> (JLB)}
\newcounter{subequation}[equation]
\def\thesubequation{\theequation\@alph\c@subequation}
\ifx\ds@leqno\undefined
  \def\@subeqnnum{{\reset@font\rm (\thesubequation)}}
\else
  \def\@subeqnnum{\hbox to .01\p@{}\rlap{\reset@font\rm
        \hskip -\displaywidth(\thesubequation)}}
\fi
\def\slabel#1{\@bsphack\if@filesw {\let\thepage\relax
   \def\protect{\noexpand\noexpand\noexpand}%
   \edef\@tempa{\write\@auxout{\string
      \newlabel{#1}{{\thesubequation}{\thepage}}}}%
   \expandafter}\@tempa
   \if@nobreak \ifvmode\nobreak\fi\fi\fi\@esphack}
\ifx\ds@fleqn\undefined
  \def\subeqnarray{%
    \stepcounter{equation}%
    \let\@currentlabel=\theequation
    \global\c@subequation\@ne
    \global\@eqnswtrue\m@th
    \global\@eqcnt\z@\tabskip\@centering\let\\\@subeqncr
    $$\m@th\halign to \displaywidth
     \bgroup\@eqnsel\hskip\@centering
      $\displaystyle\tabskip\z@{##}$%
      &\global\@eqcnt\@ne \hskip 2\arraycolsep \hfil${##}$\hfil
      &\global\@eqcnt\tw@ \hskip 2\arraycolsep
         $\displaystyle\tabskip\z@{##}$\hfil \tabskip\@centering
      &\llap{##}\tabskip\z@\cr}
\else
  \def\subeqnarray{%
    \stepcounter{equation}%
    \let\@currentlabel=\theequation
    \global\c@subequation\@ne
    \global\@eqnswtrue\m@th
    \global\@eqcnt\z@\tabskip\mathindent\let\\\@subeqncr
    \abovedisplayskip\topsep
    \ifvmode\advance\abovedisplayskip\partopsep\fi
    \belowdisplayskip\abovedisplayskip
    \belowdisplayshortskip\abovedisplayskip
    \abovedisplayshortskip\abovedisplayskip
    $$\m@th\halign to \linewidth
     \bgroup\@eqnsel\hskip\@centering
      $\displaystyle\tabskip\z@{##}$%
      &\global\@eqcnt\@ne \hskip 2\arraycolsep \hfil${##}$\hfil
      &\global\@eqcnt\tw@ \hskip 2\arraycolsep
         $\displaystyle{##}$\hfil \tabskip\@centering
      &\llap{##}\tabskip\z@\cr}
\fi
\def\endsubeqnarray{\@@subeqncr\egroup
                     $$\global\@ignoretrue}

\def\@subeqncr{{\ifnum0=`}\fi\@ifstar{\global\@eqpen\@M
    \@ysubeqncr}{\global\@eqpen\interdisplaylinepenalty \@ysubeqncr}}

\def\@ysubeqncr{\@ifnextchar [{\@xsubeqncr}{\@xsubeqncr[\z@]}}

\def\@xsubeqncr[#1]{\ifnum0=`{\fi}\@@subeqncr
   \noalign{\penalty\@eqpen\vskip\jot\vskip #1\relax}}

\def\@@subeqncr{\let\@tempa\relax
    \ifcase\@eqcnt \def\@tempa{& & &}\or \def\@tempa{& &}
      \else \def\@tempa{&}\fi
     \@tempa \if@eqnsw\@subeqnnum\refstepcounter{subequation}\fi
     \global\@eqnswtrue\global\@eqcnt\z@\cr}
\let\@ssubeqncr=\@subeqncr
\@namedef{subeqnarray*}{\def\@subeqncr{\nonumber\@ssubeqncr}\subeqnarray}
\@namedef{endsubeqnarray*}{\global\advance\c@equation\m@ne%
                           \nonumber\endsubeqnarray}
\endinput
%% 
%% End of file `subeqnarray.sty'.
